unit UPharmacyTransaction;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, AdvPanel, cxGraphics,
  cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
  dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
  dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
  dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
  dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
  dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Silver,
  dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010,
  dxSkinWhiteprint, dxSkinXmas2008Blue, cxGroupBox, DBAdvGlowNavigator,
  cxStyles, dxSkinscxPCPainter, cxCustomData, cxFilter, cxData, cxDataStorage,
  cxNavigator, Data.DB, cxDBData, cxGridLevel, cxClasses, cxGridCustomView,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
  AdvToolBar, AdvToolBarStylers, cxTextEdit, cxMaskEdit, cxDropDownEdit,
  cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, Vcl.StdCtrls, cxDBEdit,
  cxRadioGroup, cxCheckBox, Vcl.DBCtrls,
  UPharmacyStockTransfer,  UPharmacyStockTransferRequestSub, UPharmacyEncounter,
  UPharmacyStockTransferSub, UPharmacyOrder;

type
  TFPharmacyTransaction = class(TForm)
    AdvPanelStyler1: TAdvPanelStyler;
    AdvToolBarPager1: TAdvToolBarPager;
    AdvToolBarPager11: TAdvPage;
    AdvToolBarOfficeStyler1: TAdvToolBarOfficeStyler;
    AdvToolBar1: TAdvToolBar;
    AdvToolBar3: TAdvToolBar;
    AdvToolBar2: TAdvToolBar;
    AdvToolBar5: TAdvToolBar;
    procedure AdvToolBar1Click(Sender: TObject);
    procedure AdvToolBar3Click(Sender: TObject);
    procedure AdvToolBar2Click(Sender: TObject);
    procedure AdvToolBar5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FPharmacyTransaction: TFPharmacyTransaction;

implementation

{$R *.dfm}

procedure TFPharmacyTransaction.AdvToolBar1Click(Sender: TObject);
begin
  FPharmacyStockTransferSub.show;
end;

procedure TFPharmacyTransaction.AdvToolBar2Click(Sender: TObject);
begin
  FPharmacyEncounter.Show;
end;

procedure TFPharmacyTransaction.AdvToolBar3Click(Sender: TObject);
begin
  FPharmacyStockTransferRequestSub.Show;
end;

procedure TFPharmacyTransaction.AdvToolBar5Click(Sender: TObject);
begin
  FPharmacyOrder.Show;
end;

end.
